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DDDDDDDD IIN11] SSSSSSSS_ PPPPPPPP AAAAAA RRRRRRRR 
DODDDDDD she | SSSSSSSS_ PPPPPPPP AAAAAA RRRRRRRR 
0d DD I $$ PP PP AA AA RR RR 
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dD dD I] SS PP Aa AA RR RR eeee 
DDDDDDDD T1111 SSSSSSSS PP AA AA RR RR eeee 
DODDDDDD 111] SSSSSSSS PP AA AA RR RR eae 
LL 1111] SSSSSSSS 
LL W111i] SSSSSSSS 
LL I] $$ 
LL I] $$ 
LL I] $$ 
LL 1] $$ 
LL I] SSSSSS 
LL I] $SSSSS 
LL I] $$ 
LL I] $$ 
LL I} $$ 
LL I] $s 
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MODULE DISPAR - 
pi enoel pense. 


tet vbe-800"” 
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FACILITY: MOUNT Utility Structure Level 1 
i ABSTRACT: 


4 
5 
6 BEGIN 
' 
3 PITTTITITILILILILILLL LIL LITT LiL iiiiiiiiiiiiiiiiii titi iii 
ie ® 
11 ie COPYRIGHT (c) 1978, 1986, 1982, 1984 BY ® 
i ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. : 
13 te ALL RIGH § URES RVED. ‘ 
15 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
1 ie ONY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
1 ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ®* 
18 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
19 ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
0 is TRANSFERRED. ‘ 
. w 
é ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
is AND SH OULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
4 is CORPORATION, e 
6 ie DIGITAL ASSUMES NO RESPONS! BILITY FOR THE USE OR RELIABILITY OF ITS * 
i is SOFTWARE ON EQUIPMENT WHICH I$ NOT SUPPLIED BY DIGITAL. e 
i 
4 A eaaineiieienntinenadeehinbeiieeedibbedaaninenememeabaneseeaenannene 
1 
4 
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yp module contains the data base and utilities used to acquire the 


Be 8 8 a ek a a tN a ss tt Ss IO OD 
- 
iy 


© 
° 
. 
. 
+ 
° 
> 
o 
. 
° 
. 
° 
7 
° 
° 
° 
. 
° 
. 
om 
8 
° 
. 
4 
+ 
° 
e 
° 
. 
° 
. 
° 
. 
e 
° 
° 
° 
o 
« 
° 
+ 
° 
. 
° 
. 
° 
. 
° 
. 
° 
. 
o 
. 
° 
. 
° 
7 
° 
a 
e 
. 
. 
© 
oe 
7 
° 
. 
6 
. 
° 
. 
° 
° 
° 
cs 
° 
. 
o 
. 
e 
€ 
. 
° 
© 
& 
. 
° 
. 
° 
° 
- 
e 
. 
& 
. 
° 
. 
° 
. 
° 
° 
° 
° 
. 
* 
. 
oe 
. 
e 
. 
° 


' 
' 
iB } ISMOUNT command Line from the CL! parser. 
41 i ENVIRONMENT : 
rk p i STAM ET operating system, including privileged system services 
4h OC ; and internal exec routines. 
45 OC ' 
4 le lee 
+ . 
d 00 
4 ii : AUTHOR: Andrew C. Goldstein, CREATION DATE: 24-Oct-1977 10:45 
D0 ' 
1 OC ' MODIFIED BY: 
ee 
g 00 : v03-003 HHO004 Hai Huang ak ei bes 
$ 4 Add cluster-wide mount support (/CLUSTER qualifier) 
¢ i i V03-002 HHO003 Hai Huang 16-F eb-1984 
DC ; Add forced d{seount support (/ABORT qualifier). 


er 


Se Se Oe Ge Ge Se Se Oe Se Ge SH Ss Ge SF Ge He SF Se Se FF S5 Se Se Se SH SeSe Seas 


iseortage #34) " Dismou:SneS0i SPAR -83¢/4 se 


'% 
1! v03-001 MCNO134 Maria del C. Nasr 31-0ct-1983 
! Change to new CLI interface. 
6¢ 1 v02=004 $0141 Steven T. Jeftreys 13-Nov-1981 
1! e woke e to use the SDISMOU system service to 
66 1! on ete the dismount. The version 2 command Line 
5 ! parser must be used. 
; 1! v02-003 PCG0001 eC. George 03-Feb-1981 10:00 
re : } Change MOUNTMSG tae A to DISMOUMSG. 
01: v02-002 ACGO181 Andrew C. Goldstein, 99-Oct-1980 16:01 
4 ! Fix cross facility source reference 
4 ii eetet ACG0003 Andrew C. Goldstein, 29-Nov-1978 20:32 
rs Add multi-volume disk support (/UNIT switchs 
076 1 x0100 AcGo001 Andrew C. Goldstein 24-Oct-1978 13:47 
07 a Previous revision history moved to EDI SMOU. §RCID1 SMOUNT .REV 
a078 a 
0081 1 LIBRARY ap lattapupes: Fh IGst 52": 
082 1 REQUIRE ' 
0614 1 REQUIRE oat ttY vast iB, o8i 085201 _— B32'; 
0691 1 LIBRARY ‘SYSSLIBRARY:CLIMA 
0636 ’ LIBRARY ‘SYSSLIBRARY: TbARAC: t 


a? FP smi minh FF CF OF nw. « 


tam « «7 « a ee Se ee eee, Ce 


Be £2:30:08 


? 
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Page 


rt Ot iene He etd 
DISMOU.SRCIJDISPAR.B32; 


-1 
1 


18-5 
14-Se 


Define descriptors for the CLI parser. 
$ 
$ 
$ 
$ 


CLI routines 
pP 
G 
C 
Ss 
CLI return status codes 
A 
N 
E 
L 


Oe 
SOOonm | uk auth anh ant ane ack antl eel ae ae 
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? 
ep-i9be 12:20:08 ED ismoussaeSoi SPAR-B32; 


GLOBAL ROUTINE DISMOUNT_PARSE : NOVALUE = 
1+¢ 
FUNCTIONAL DESCRIPTION: 


This routine parses the DISMOUNT command Line by calling the CLI 
result parse routines. 


CALLING SEQUENCE: 
DISMOUNT_PARSE 
INPUT PARAMETERS: 
None 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
Dismount status code 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 
OCAL 
DEVICE_DESC : SBBLOCK (CDS $¢.S_BLNJ, ' descriptor for device 
ppt : BITVECTOR (32]7 ' mask for qualifiers 


: Initialize descriptor 


CHSFILL (0, DSCSC_S_BLN, DEVICE DESC); 
DEVICE_pESst Posse CLASS] = DSCSK_CLASS_D; 


Get device name 

CLISGET_VALUE ( SDESCRIPTOR ("DEVICE'), DEVICE_DESC ); 

: Initialize mask to hold the correct dismount option bits. 
TEMP_MASK = 0; 

Look for qualifiers, and set option bits accordingly. 
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20: DISMOU.SRCJDISPAR.B32; 
Jf CLISPRESENT ( UNIT DESC ) 
TEMP_MASK CSBITPOSITION (DMTSV_UNIT)] = 1; 
SELECTONE CLISPRESENT ( UNLOAD DESC ) OF 
CCLIS_PRESENT 
CLISTDEFAULTED) : TEMP_MASK CSBITPOSITION (DMT$V_NOUNLOAD)] = 0; 


res, ECL IS-NEGATED : TEMP_MASK CS$BITPOSITION (DMT$V_NOUNLOAD)] = 1; 


If CLISPRESENT ( ABORT_DESC ) 
TEMP_MASK CSBITPOSITION (DMT$V_ABORT)] = 1; 


if CLISPRESENT ( CLUSTER_DESC ) 
TEMP_MASK CSBITPOSITION (DMT$V_CLUSTER)] = 1; 


Call the dismount system service to finish the dismount. 


STATUS = SDISMOU (DEVNAM=DEVICE_DESC, FLAGS=.TEMP_MASK); 
SEXIT (CODE = .STATUS); 
END; ! end of routine DISMOUNT_PARSE 
-TITLE DISPAR 
IDENT \v04-000\ 
-PSECT SPLITS,NOWRT ,NOEXE ,2 


44 41 4F 4C 4E€ 55 00000 P.AAB: .ASCII \UNLOAD\ 


-BLKB 
900008 P.AAA: .LONG 
5 -ADDRESS P.AAB 
54 49 4 P.AAD: ASCII \UNIT\ 
098 14 P.AAC: .LONG 4 
4 8 »ADDRESS P.AAD 
54 52 4F 42 4 1C P.AAF: ot \ABORT\ 


SSIES, S885 omnes RES 


52 45 54 53 55 4 P.AAH e ‘aah 
7 P.AAG: .LONG 
oo RE TR as RE at 
taeddatie 8 seme “ADDRESS P.AAJ 


J ? 
DISPAR 18-52 1984 241: AX-11 Bliss-32 V4.0-74 Page 
‘YOt“b0o 1278 08- 1 3be 13:50:08 DISMOU.SRCJDISPAR.B32; ’ 
| UNLOAD_DESC= P.AAA 
UNIT_DESC= P- AAC 
ABORT _DESC= P.AAE 
CLUSTER_DESC= P. AAG 
.EXTRN CLISPRESENT cLISGer VALUE 
SEXTRN CLIS_PRESENT, CLI$_NEGATED 
“EXTRN CLIS"DEFAULTED, SYS$DISMOU 
~EXTRN SYSSEXIT 
.PSECT $CODES,NOWRT,2 
00FC 000 .ENTRY DISMOUNT_PARSE, Save R2,R3,R4,R5,R6,R7 ; 
57 00006 CF 9E 000 MOVAB CLISPRESENT, R? : 
4 000° CF 9 MOV P.AAL, R6 : 
Se 8 ¢ 0c SUBL ab, sh ; 
08 00 6E 0 2 oF movcS #0. (SP), #0, #8, DEVICE_DESC : 
03 AE 5 90 a8 MOVB #2, DEVICE_DESC+3 : 
4060 8F BB 00019 PUSHR #*M<R6,SP> ; 
00006 CF g FB O19 CALLS #2, CLISGET_VALUE ; 
pd 0 CLRL. ss TEMP_MASK : 
DO AG 024 PUSHAB UNIT DESC ; 
6? 9 4 i CALLS #1, CLISPRESENT 3 
2 89 bs 02D BISB2 #2. TEMP_MAS : 
C4 «Ab OF 000 9 1$ PUSHAB UNLOAD_DESC ; 
7 1 FB 000 CALLS #1, CLISPRESENT ; 
000000006 &F 0 pi 000 CMPL =soRO,. @CLIS_PRESENT : 
9 13 2 D BEQL © 2$ : 
000000006 8F Q D0} F CMPL RO, #CLIS_DEFAULTED ; 
12 046 BNE 3$ : 
52 1 BA 048 2%: BICB2 #1, TEMP_MASK ; 
1 00048 BRB 4 : 
000000006 8F D1 00040 38: CMPL RO. #CLIS_NEGATED : 
iF 054 BNEQ 4 ; 
52 1 8 § BISB2 #1, TEMP_MASK ; 
EO Ab 9F 00059 48 PUSHAB ABORT DESC ; 
67 1 ¢ C CALLS #1, CCISPRESENT : 
93 0 F BLBC - ; 
4 BISB2 #4. TEMP_MASK : 
FO a6 F 5$: PUS CLUSTER BESC : 
67 F CALLS #1, CLISPRESENT : 
BISB2 #8. TEMP _MASK ; 
D 6$ PUSHL TEMP_MASR F 
04 AE OF PUSH Evite DESC ; 
000000006 00 FB CALLS #2, SYS$DISMOU ; 
DD PUSHL STATUS ; 
000000006 00 1 FB CALLS #1, SYSSEXIT : 


; Routine Size: 135 bytes, Routine Base: S$CODE$ + 0000 


i Boe 8809 1 Eno 


205 0810 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SPLITS 4 NOVEC,NOWRT, RD ,NOEXE,NOSHR, 
SCODES 1 NOVEC,NOWRT, RD, EXE,NOSHR, 
Library Statistics 
eocecees Symbols ------"- 
File Total Loaded Percent 
_8255SDUA SYSLI8JL1IB.L32;1 18619 23 0 
~$255$0U SYSLIB CL AC ob ae | 14 8 
_8255SDUA SYSLIBJTPAMAC.L32;1 42 


COMMAND QUALIFIERS 
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LCL, REL poked bE rd b thf 
LCL, L CON,NOPIC ,ALIGN(2) 
Pages Processing 
Mapped Time 
100 0:01.7 
9 09:00. 
14 0:00.1 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:D1SPAR/OBJ=0BJ$:DISPAR MSRC$:D1SPAR/UPDATE=(ENHS$:DISPAR) 


Size: 135 code *¢ 76 data bytes 
R ime: 09 2 


,ovenee/CPy-e “Min: 36005 
"Y Used: 103 pages 
a ation Complete 
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